home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / calen-1.bas < prev    next >
BASIC Source File  |  1994-06-23  |  1KB  |  34 lines
  1. 10 J=387*Y-INT(7*(Y+INT((M+9)/12))/4)+INT(275*M/9)+1721031!
  2. 100 PRINT"       PERPETUAL GREGORIAN CALENDAR"
  3. 110 PRINT:PRINT
  4. 120 DIM C$(42),D$(31),E(12)
  5. 130 FOR I=1 TO 31:READ D$(I):NEXT I
  6. 140 FOR I=1 TO 12:READ E(I):NEXT I
  7. 150 DATA"  1","  2","  3","  4","  5","  6","  7","  8","  9"," 10"
  8. 160 DATA" 11"," 12"," 13"," 14"," 15"," 16"," 17"," 18"," 19"," 20"
  9. 170 DATA" 21"," 22"," 23"," 24"," 25"," 26"," 27"," 28"," 29"," 30"," 31"
  10. 180 DATA  31,28,31,30,31,30,31,31,30,31,30,31
  11. 190 PRINT"    WHAT IS THE MONTH NUMBER AND YEAR?"
  12. 191 INPUT "ENTER MONTH NUMBER (M)";M
  13. 192 INPUT "ENTER YEAR NUMBER (Y)";Y
  14. 193 IF Y<100 THEN Y=Y+1900
  15. 194 PRINT, M "MONTH NUMBER"
  16. 195 PRINT, Y "YEAR NUMBER"
  17. 200 PRINT:PRINT" SU MO TU WE TH FR SA":PRINT
  18. 210 J=367*Y-INT(7*(Y+INT((M+9)/12))/4)+INT(275*M/9)+1721031!
  19. 220 K=0: IF M<2 THEN K=-1
  20. 230 J=J-INT(3*(INT((Y+K)/100)+1)/4)
  21. 240 K=E(M): IF M<>2 THEN 290
  22. 250 W=INT(Y-100*INT(Y/100)): X=INT(Y-4*INT(Y/4)):Z=INT(Y-400*INT(Y/400))
  23. 260 IF X<>0 THEN 290
  24. 270 IF W=0 AND Z<>0 THEN 290
  25. 280 K=29
  26. 290 X=J-7*INT(J/7)
  27. 300 FOR I=1 TO 42: C$(I)="   ": NEXT I
  28. 310 FOR I=1 TO K: C$(I+X)=D$(I): NEXT I
  29. 320 FOR I=1 TO 6: J=7*I
  30. 330 PRINT C$(J-6);C$(J-5);C$(J-4);C$(J-3);C$(J-2);C$(J-1);C$(J)
  31. 340 NEXT I
  32. 350 PRINT: INPUT "ANOTHER: YES OR NO"; A$: IF A$="Y" THEN 190
  33. 360 END
  34.